VERSION 5.00
Begin VB.UserControl VCTFormPage1 
   ClientHeight    =   1545
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2295
   ScaleHeight     =   1545
   ScaleWidth      =   2295
   Begin VCT.BarCode39Ctrl BarCode39Ctrl1 
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   840
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   873
   End
   Begin VB.Label Label1 
      Caption         =   "VCT Form Page 1"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   1815
   End
End
Attribute VB_Name = "VCTFormPage1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

'Client Details
Dim LocRegionCode As String
Dim LocDistrictCode As String
Dim LocSiteCode As String
Dim LocVisitDate As String
Dim LocReturnVisit As String
Dim LocClientCode As String
Dim LocNewClientCode As String
Dim LocSessionType As String
Dim LocCoupleCode As String
Dim LocPartnerCode As String
Dim LocClientSex As String

Public Sub PrintSheet()

   Const FormTop = 1200
   Const FormLeft = 300
   Const FormWidth = 10900
   Const FormHeight = 14800
   
   Const HLine1 = 2500
   Const HLine2 = 5600
   Const HLine3 = 11700
   Const Page1ShortHLine = 8600
      
   Const VLine1 = 1500
   Const VLine2 = 3450
   Const VLine3 = 5150
   Const VLine4 = 7150
   Const VLine5 = 9100
   
   Const VLine6 = 1725
   Const VLine7 = 3450
   Const VLine8 = 5250
   Const VLine9 = 7350
   Const VLine10 = 9100
   
   Const VLine11 = 1850
   Const VLine12 = 3550
   Const VLine13 = 5350
   Const VLine14 = 7250
   Const VLine15 = 9000
   
   Const Col2 = 3650
   Const Col3 = 7250
   
   Const Offset = 1900
   Const AdmitTop = 10600 + Offset
   Const RightCol = 6000
   Const RightCol2 = 5000
   
   Dim XPos, YPos As Integer
        
   Printer.FontName = "Arial Narrow"
   Printer.PaperSize = vbPRPSA4   'Set printer for A4 paper
   Printer.FontBold = False
   Printer.FontItalic = False
   Printer.FontUnderline = False
   Printer.Orientation = 1
   
   Printer.CurrentX = 1750
   Printer.CurrentY = 300
   Printer.FontSize = 14
   Printer.Print "MALAWI AIDS COUNSELLING AND RESOURCE ORGANISATION (MACRO)"
   Printer.CurrentX = 3700
   Printer.FontSize = 12
   Printer.Print "HIV COUNSELLING AND TESTING RECORD"
   
   Printer.DrawWidth = 8
   'draw the rectangular box
   RC = PrintRect(FormLeft, FormTop, FormWidth, FormHeight)
   'Add the horizontal lines
   Printer.Line (FormLeft, FormTop + HLine1)-Step(FormWidth, 0)
   Printer.Line (FormLeft, FormTop + HLine2)-Step(FormWidth, 0)
   Printer.Line (FormLeft, FormTop + HLine3)-Step(FormWidth, 0)
   Printer.DrawWidth = 1
   Printer.Line (FormLeft + VLine13, FormTop + Page1ShortHLine)-Step(VLine14 - VLine13, 0)
   
   'last minute short lines - no constant for height
   Printer.Line (FormLeft, FormTop + 1250)-Step(VLine3, 0)
  ' Printer.Line (FormLeft + VLine2, FormTop + 1250)-Step(VLine3 - VLine2, 0)
   Printer.Line (FormLeft + VLine5, FormTop + 1250)-Step(FormWidth - VLine5, 0)
 '  Printer.Line (FormLeft + VLine6, FormTop + HLine1 + 1375)-Step(VLine7 - VLine6, 0)
   Printer.Line (FormLeft + VLine7, FormTop + HLine1 + 1750)-Step(VLine8 - VLine7, 0)
   
   'Add the vertical lines
   Printer.Line (FormLeft + VLine1, FormTop)-Step(0, HLine1)
   Printer.Line (FormLeft + VLine2, FormTop)-Step(0, HLine1)
   Printer.Line (FormLeft + VLine3, FormTop)-Step(0, HLine1)
   Printer.Line (FormLeft + VLine4, FormTop)-Step(0, HLine1)
   Printer.Line (FormLeft + VLine5, FormTop)-Step(0, HLine1)
   
   Printer.Line (FormLeft + VLine6, FormTop + HLine1)-Step(0, HLine2 - HLine1)
   Printer.Line (FormLeft + VLine7, FormTop + HLine1)-Step(0, HLine2 - HLine1)
   Printer.Line (FormLeft + VLine8, FormTop + HLine1)-Step(0, HLine2 - HLine1)
   Printer.Line (FormLeft + VLine9, FormTop + HLine1)-Step(0, HLine2 - HLine1)
   Printer.Line (FormLeft + VLine10, FormTop + HLine1)-Step(0, HLine2 - HLine1)
   
   Printer.Line (FormLeft + VLine11, FormTop + HLine2)-Step(0, HLine3 - HLine2)
   Printer.Line (FormLeft + VLine12, FormTop + HLine2)-Step(0, HLine3 - HLine2)
   Printer.Line (FormLeft + VLine13, FormTop + HLine2)-Step(0, HLine3 - HLine2)
   Printer.Line (FormLeft + VLine14, FormTop + HLine2)-Step(0, HLine3 - HLine2)
   Printer.Line (FormLeft + VLine15, FormTop + HLine2)-Step(0, HLine3 - HLine2)
   
   Printer.FontSize = 10
   Printer.FontBold = True
   
   'ROW 1
   'REGION CODE
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "1. REGION"
   Printer.CurrentX = FormLeft + 280
   Printer.CurrentY = FormTop + 250
   Printer.Print "CODE:"
   
   'DISTRICT CODE
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + 1300
   Printer.Print "2. DISTRICT"
   Printer.CurrentX = FormLeft + 280
   Printer.CurrentY = FormTop + 1500
   Printer.Print "CODE:"
   
   'SITE CODE
   Printer.CurrentX = FormLeft + VLine1 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "3. SITE"
   Printer.CurrentX = FormLeft + VLine1 + 280
   Printer.CurrentY = FormTop + 250
   Printer.Print "CODE:"
   
   'DATE
   Printer.CurrentX = FormLeft + VLine1 + 100
   Printer.CurrentY = FormTop + 1300
   Printer.Print "4. DATE:"
   
   Printer.CurrentX = FormLeft + VLine2 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "5. RETURN VISIT:"
   
   'CLIENT CODE
   Printer.CurrentX = FormLeft + VLine2 + 100
   Printer.CurrentY = FormTop + 1300
   Printer.Print "6. CLIENT"
   Printer.CurrentX = FormLeft + VLine2 + 280
   Printer.CurrentY = FormTop + 1500
   Printer.Print "CODE:"
   
   Printer.CurrentX = FormLeft + VLine3 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "7. NEW CLIENT CODE:"
   
   Printer.CurrentX = FormLeft + VLine4 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "8. SESSION TYPE:"
   
   'COUPLE CODE
   Printer.CurrentX = FormLeft + VLine5 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "9. COUPLE"
   Printer.CurrentX = FormLeft + VLine5 + 280
   Printer.CurrentY = FormTop + 250
   Printer.Print "CODE:"
   
   'PARTNER CODE
   Printer.CurrentX = FormLeft + VLine5 + 100
   Printer.CurrentY = FormTop + 1300
   Printer.Print "10. PARTNER"
   Printer.CurrentX = FormLeft + VLine5 + 280
   Printer.CurrentY = FormTop + 1500
   Printer.Print "CODE:"
   
   'ROW 2
   'COUPLE TYPE
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine1 + 50
   Printer.Print "11. COUPLE"
   Printer.CurrentX = FormLeft + 380
   Printer.CurrentY = FormTop + HLine1 + 250
   Printer.Print "TYPE:"
   
   'COUNSELOR CODE
   Printer.CurrentX = FormLeft + VLine6 + 100
   Printer.CurrentY = FormTop + HLine1 + 50
   Printer.Print "12. COUNSELOR"
   Printer.CurrentX = FormLeft + VLine6 + 380
   Printer.CurrentY = FormTop + HLine1 + 250
   Printer.Print "CODE:"
   
   'WILLING TO GIVE NAME
'   Printer.CurrentX = FormLeft + VLine6 + 100
'   Printer.CurrentY = FormTop + HLine1 + 1425
'   Printer.Print "12. WILLING TO"
'   Printer.CurrentX = FormLeft + VLine6 + 380
'   Printer.CurrentY = FormTop + HLine1 + 1625
'   Printer.Print "GIVE NAME:"
   
   'SEX
   Printer.CurrentX = FormLeft + VLine7 + 100
   Printer.CurrentY = FormTop + HLine1 + 50
   Printer.Print "13. SEX:"
   
   'AGE
   Printer.CurrentX = FormLeft + VLine7 + 100
   Printer.CurrentY = FormTop + HLine1 + 1800
   Printer.Print "14. AGE:"
   
   'CURRENT RESIDENTIAL CLASSIFICATION
   Printer.CurrentX = FormLeft + VLine8 + 100
   Printer.CurrentY = FormTop + HLine1 + 50
   Printer.Print "15. CURRENT"
   Printer.CurrentX = FormLeft + VLine8 + 380
   Printer.CurrentY = FormTop + HLine1 + 250
   Printer.Print "RESIDENTIAL"
   Printer.CurrentX = FormLeft + VLine8 + 380
   Printer.CurrentY = FormTop + HLine1 + 450
   Printer.Print "CLASSIFICATION:"
   
   'ATTENDED GROUP SESSION
   Printer.CurrentX = FormLeft + VLine9 + 100
   Printer.CurrentY = FormTop + HLine1 + 50
   Printer.Print "16. ATTENDED"
   Printer.CurrentX = FormLeft + VLine9 + 380
   Printer.CurrentY = FormTop + HLine1 + 250
   Printer.Print "GROUP"
   Printer.CurrentX = FormLeft + VLine9 + 380
   Printer.CurrentY = FormTop + HLine1 + 450
   Printer.Print "SESSION:"
   
   'CURRENTLY EMPLOYED
   Printer.CurrentX = FormLeft + VLine10 + 100
   Printer.CurrentY = FormTop + HLine1 + 50
   Printer.Print "17. CURRENTLY"
   Printer.CurrentX = FormLeft + VLine10 + 380
   Printer.CurrentY = FormTop + HLine1 + 250
   Printer.Print "EMPLOYED:"
   
   'ROW 3
   'CURRENT OCCUPATION
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "18. CURRENT"
   Printer.CurrentX = FormLeft + 380
   Printer.CurrentY = FormTop + HLine2 + 250
   Printer.Print "OCCUPATION:"
   
   'HIGHEST EDUCATION ATTENDED
   Printer.CurrentX = FormLeft + VLine11 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "19. HIGHEST"
   Printer.CurrentX = FormLeft + VLine11 + 380
   Printer.CurrentY = FormTop + HLine2 + 250
   Printer.Print "EDUCATION"
   Printer.CurrentX = FormLeft + VLine11 + 380
   Printer.CurrentY = FormTop + HLine2 + 450
   Printer.Print "ATTENDED:"
   
   'MARITAL STATUS
   Printer.CurrentX = FormLeft + VLine12 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "20. MARITAL"
   Printer.CurrentX = FormLeft + VLine12 + 380
   Printer.CurrentY = FormTop + HLine2 + 250
   Printer.Print "STATUS:"
      
   'CURRENT MARRIAGE TYPE
   Printer.CurrentX = FormLeft + VLine13 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "21. CURRENT"
   Printer.CurrentX = FormLeft + VLine13 + 380
   Printer.CurrentY = FormTop + HLine2 + 250
   Printer.Print "MARRIAGE"
   Printer.CurrentX = FormLeft + VLine13 + 380
   Printer.CurrentY = FormTop + HLine2 + 450
   Printer.Print "TYPE:"
   
   'MARITAL HISTORY
   Printer.CurrentX = FormLeft + VLine13 + 100
   Printer.CurrentY = FormTop + Page1ShortHLine + 50
   Printer.Print "22. MARITAL"
   Printer.CurrentX = FormLeft + VLine13 + 380
   Printer.CurrentY = FormTop + Page1ShortHLine + 250
   Printer.Print "HISTORY:"
   
   'HOW KNEW ABOUT OUR SERVICES
   Printer.CurrentX = FormLeft + VLine14 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "23. HOW KNEW"
   Printer.CurrentX = FormLeft + VLine14 + 380
   Printer.CurrentY = FormTop + HLine2 + 250
   Printer.Print "ABOUT OUR"
   Printer.CurrentX = FormLeft + VLine14 + 380
   Printer.CurrentY = FormTop + HLine2 + 450
   Printer.Print "SERVICES:"
   
   'REFERRED BY
   Printer.CurrentX = FormLeft + VLine15 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "24. REFERRED"
   Printer.CurrentX = FormLeft + VLine15 + 380
   Printer.CurrentY = FormTop + HLine2 + 250
   Printer.Print " BY:"
   
   'ROW 4
   'MOST IMPORTANT REASON HERE TODAY
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine3 + 50
   Printer.Print "25. MOST IMPORTANT REASON HERE TODAY:"
   Printer.FontUnderline = True
   Printer.CurrentX = FormLeft + 380
   Printer.CurrentY = FormTop + HLine3 + 50
   Printer.Print "MOST"
   Printer.FontUnderline = False
   
   Printer.FontSize = 11
   Printer.FontName = "Arial Narrow"
   Printer.FontBold = False
   
   'ROW 1
   'DATE
   If LocVisitDate = "" Then
      Printer.CurrentX = FormLeft + VLine1 + 150
      Printer.CurrentY = FormTop + 1850
      Printer.Print "____ / ____ / _____"
      Printer.CurrentX = FormLeft + VLine1 + 200
      Printer.CurrentY = Printer.CurrentY + 75
      Printer.Print "DD  /  MM  /  YYYY"
   End If
   
   'RETURN VISIT
   If LocReturnVisit = "" Then
      Printer.CurrentX = FormLeft + VLine2 + 250
      Printer.CurrentY = FormTop + 375
      Printer.Print "0 = No"
      Printer.CurrentX = FormLeft + VLine2 + 250
      Printer.CurrentY = Printer.CurrentY + 150
      Printer.Print "1 = Yes"
   End If
   
   'NEW CLIENT CODE
   If LocNewClientCode = "" Then
      Printer.CurrentX = FormLeft + VLine3 + 250
      Printer.CurrentY = FormTop + 375
      Printer.Print "0 = No"
      Printer.CurrentX = FormLeft + VLine3 + 250
      Printer.CurrentY = Printer.CurrentY + 150
      Printer.Print "1 = Yes"
   End If
   
   'SESSION TYPE
   If LocSessionType = "" Then
      Printer.CurrentX = FormLeft + VLine4 + 250
      Printer.CurrentY = FormTop + 375
      Printer.Print "1 = Individual"
      Printer.CurrentX = FormLeft + VLine4 + 250
      Printer.CurrentY = Printer.CurrentY + 150
      Printer.Print "2 = Couple"
      Printer.CurrentX = FormLeft + VLine4 + 250
      Printer.CurrentY = Printer.CurrentY + 150
      Printer.Print "99 = Other"
   End If
   
   'ROW 2
   'COUPLE TYPE
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + HLine1 + 800
   Printer.Print "1 = Married"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Premarital"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "3 = Presexual"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "4 = Sex Partner"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "98 = N/A"
   
   'WILLING TO GIVE NAME
'   Printer.CurrentX = FormLeft + VLine6 + 250
'   Printer.CurrentY = FormTop + HLine1 + 2025
'   Printer.Print "0 = No"
'   Printer.CurrentX = FormLeft + VLine6 + 250
'   Printer.CurrentY = Printer.CurrentY + 150
'   Printer.Print "1 = Yes"
   
   'SEX
      If LocClientSex = "" Then
      Printer.CurrentX = FormLeft + VLine7 + 250
      Printer.CurrentY = FormTop + HLine1 + 800
      Printer.Print "1 = Male"
      Printer.CurrentX = FormLeft + VLine7 + 250
      Printer.CurrentY = Printer.CurrentY + 150
      Printer.Print "2 = Female"
   End If
   
   'CURRENT RESIDENTIAL CLASSIFICATION
   Printer.CurrentX = FormLeft + VLine8 + 250
   Printer.CurrentY = FormTop + HLine1 + 800
   Printer.Print "1 = Urban"
   Printer.CurrentX = FormLeft + VLine8 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Rural"
   Printer.CurrentX = FormLeft + VLine8 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "98 = Other"
   
   'ATTENDED GROUP SESSION
   Printer.CurrentX = FormLeft + VLine9 + 250
   Printer.CurrentY = FormTop + HLine1 + 800
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine9 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "1 = Yes"
   
   'CURRENTLY EMPLOYED
   Printer.CurrentX = FormLeft + VLine10 + 250
   Printer.CurrentY = FormTop + HLine1 + 800
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine10 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "1 = Yes"
   
   'ROW 3
   'CURRENT OCCUPATION
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + HLine2 + 800
   Printer.Print "1 = Unskilled"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Skilled"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "3 = Professional"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "4 = Business"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "5 = Military/Police"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "6 = Security"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "7 = Student"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "8 = Subsistance"
   Printer.CurrentX = FormLeft + 550
   Printer.Print "Farmer"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "9 = Housewife"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "10 = None"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "99 = Other"

   'HIGHEST EDUCATION COMPLETED
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = FormTop + HLine2 + 800
   Printer.Print "0 = None"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "1 = Primary"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Secondary"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "3 = Post-"
   Printer.CurrentX = FormLeft + VLine11 + 550
   Printer.Print "secondary"
   Printer.CurrentX = FormLeft + VLine11 + 550
   Printer.Print "certificate"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "4 = University"
   Printer.CurrentX = FormLeft + VLine11 + 550
   Printer.Print "degree"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "5 = Post-"
   Printer.CurrentX = FormLeft + VLine11 + 550
   Printer.Print "university"
   Printer.CurrentX = FormLeft + VLine11 + 550
   Printer.Print "degree"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "99 = Other"
   
   'MARITAL STATUS
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = FormTop + HLine2 + 800
   Printer.Print "1 = Never"
   Printer.CurrentX = FormLeft + VLine12 + 550
   Printer.Print "married"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Married"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "3 = Separated"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "4 = Divorced"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "5 = Widowed"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "6 = Cohabitating"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "99 = Other"
   
   'CURRENT MARRIAGE TYPE
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = FormTop + HLine2 + 800
   Printer.Print "1 = Monogamous"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Polygamous"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "98 = N/A"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "99 = Other"
   
   'MARITAL HISTORY
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = FormTop + Page1ShortHLine + 650
   Printer.Print "1 = Previously"
   Printer.CurrentX = FormLeft + VLine13 + 550
   Printer.Print "separated or"
   Printer.CurrentX = FormLeft + VLine13 + 550
   Printer.Print "divorced"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Previously"
   Printer.CurrentX = FormLeft + VLine13 + 550
   Printer.Print "widowed"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "98 = N/A"
   
   'HOW KNEW ABOUT OUR SERVICES
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = FormTop + HLine2 + 800
   Printer.Print "1 = Radio"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Outreach"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "3 = Signposts"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "4 = Clients"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "5 = Newsprint"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "6 = Clinic/Hosp."
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "7 = Television"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "8 = Referred"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "98 = N/A"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "99 = Other"
   Printer.CurrentX = FormLeft + VLine14 + 525
   Printer.CurrentY = Printer.CurrentY + 200
   Printer.FontItalic = True
   Printer.FontBold = True
   Printer.Print "Circle all"
   Printer.CurrentX = FormLeft + VLine14 + 475
   Printer.Print "that apply"
   Printer.FontItalic = False
   Printer.FontBold = False
   
   'REFERRED BY
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = FormTop + HLine2 + 800
   Printer.Print "1 = Not"
   Printer.CurrentX = FormLeft + VLine15 + 550
   Printer.Print "referred"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Clinic/Hosp."
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "3 = Relative"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "4 = Friend"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "5 = Other Client"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "6 = Religious"
   Printer.CurrentX = FormLeft + VLine15 + 550
   Printer.Print "Institution"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "7 = CBOs"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "8 = NGOs"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "9 = PMTCT"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "98 = N/A"
   Printer.CurrentX = FormLeft + VLine15 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "99 = Other"
   
   'ROW 4
   'MOST IMPORTANT REASON HERE TODAY
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + HLine3 + 425
   Printer.Print "1 = Current HIV risk behavior"
   Printer.CurrentX = FormLeft + 550
   Printer.FontItalic = True
   Printer.Print "(Within the past 6 months)"
   Printer.FontItalic = False
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "2 = Past HIV risk behavior"
   Printer.CurrentX = FormLeft + 550
   Printer.FontItalic = True
   Printer.Print "(More than 6 months ago)"
   Printer.FontItalic = False
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "3 = Feel ill/Other symptoms"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "4 = Referred"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "5 = Partner bahavior"
   
   Printer.CurrentX = FormLeft + Col2 + 250
   Printer.CurrentY = FormTop + HLine3 + 425
   Printer.Print "6 = Partner ill/Other symptoms"
   Printer.CurrentX = FormLeft + Col2 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "7 = Partner died"
   Printer.CurrentX = FormLeft + Col2 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "8 = Planning for marriage"
   Printer.CurrentX = FormLeft + Col2 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "9 = Marriage, other"
   Printer.CurrentX = FormLeft + Col2 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "10 = Pregnancy/ PMTC"
   
   Printer.CurrentX = FormLeft + Col3 + 250
   Printer.CurrentY = FormTop + HLine3 + 425
   Printer.Print "11 = Get results  from previous test"
   Printer.CurrentX = FormLeft + Col3 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "12 = 2nd Test (Window period)"
   Printer.CurrentX = FormLeft + Col3 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "13 = Confirm previous HIV status"
   Printer.CurrentX = FormLeft + Col3 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "14 = Need counseling"
   Printer.CurrentX = FormLeft + Col3 + 250
   Printer.CurrentY = Printer.CurrentY + 150
   Printer.Print "99 = Other"
   
   'Draw some shaded boxes where text MUST be completed by the counselor
   Printer.ForeColor = RGB(242, 242, 242)
   If LocRegionCode = "" Then
      'Region Code
      Printer.Line (FormLeft + 20, FormTop + 590)-Step(VLine1 - 30, 650), , BF
   End If
   
   If LocDistrictCode = "" Then
      'District Code
      Printer.Line (FormLeft + 20, FormTop + 1840)-Step(VLine1 - 30, 650), , BF
   End If
   
   If LocDistrictCode = "" Then
      'Site Code
      Printer.Line (FormLeft + VLine1 + 10, FormTop + 590)-Step(VLine2 - VLine1 - 20, 650), , BF
   End If
   
   If LocClientCode = "" Then
      'Client Code
      Printer.Line (FormLeft + VLine2 + 10, FormTop + 1840)-Step(VLine3 - VLine2 - 20, 650), , BF
   End If
   
   'Counselor Code
   Printer.Line (FormLeft + VLine6 + 10, FormTop + HLine1 + 705)-Step(VLine7 - VLine6 - 20, 650), , BF
   'Age
   Printer.Line (FormLeft + VLine7 + 10, FormTop + HLine1 + 2430)-Step(VLine8 - VLine7 - 20, 650), , BF
   
   'Print the Client Values
   Printer.ForeColor = RGB(0, 0, 0)
   Printer.FontSize = 12
'   Printer.FontBold = True
   Printer.FontItalic = True
 '  Printer.FontUnderline = True
 
   'Region Code
   If LocRegionCode <> "" Then
      Printer.CurrentX = FormLeft + 400
      Printer.CurrentY = FormTop + 650
      Printer.Print LocRegionCode
   End If
   'District Code
   If LocSiteCode <> "" Then
      Printer.CurrentX = FormLeft + 400
      Printer.CurrentY = FormTop + 1850
      Printer.Print LocDistrictCode
   End If
   'Site Code
   If LocSiteCode <> "" Then
      Printer.CurrentX = FormLeft + VLine1 + 400
      Printer.CurrentY = FormTop + 650
      Printer.Print LocSiteCode
   End If
   'Visit Date
   If LocVisitDate <> "" Then
      Printer.CurrentX = FormLeft + VLine1 + 400
      Printer.CurrentY = FormTop + 1850
      Printer.Print LocVisitDate
   End If
   'Return Visit
   If LocReturnVisit <> "" Then
      Printer.CurrentX = FormLeft + VLine2 + 400
      Printer.CurrentY = FormTop + 650
      Printer.Print LocReturnVisit
   End If
   'Client Code
   If LocClientCode <> "" Then
      Printer.CurrentX = FormLeft + VLine2 + 400
      Printer.CurrentY = FormTop + 1850
      Printer.Print LocClientCode
   End If
   'New Client Code
   If LocNewClientCode <> "" Then
      Printer.CurrentX = FormLeft + VLine3 + 400
      Printer.CurrentY = FormTop + 650
      Printer.Print LocNewClientCode
   End If
   'Session Type
   If LocSessionType <> "" Then
      Printer.CurrentX = FormLeft + VLine4 + 400
      Printer.CurrentY = FormTop + 650
      Printer.Print LocSessionType
   End If
   'Couple Code
   If LocCoupleCode <> "" Then
      Printer.CurrentX = FormLeft + VLine5 + 400
      Printer.CurrentY = FormTop + 650
      Printer.Print LocCoupleCode
   End If
   'Partner Code
   If LocPartnerCode <> "" Then
      Printer.CurrentX = FormLeft + VLine5 + 400
      Printer.CurrentY = FormTop + 1850
      Printer.Print LocPartnerCode
   End If
   'Sex
   If LocClientSex <> "" Then
      Printer.CurrentX = FormLeft + VLine7 + 400
      Printer.CurrentY = FormTop + HLine1 + 650
      Printer.Print LocClientSex
   End If
   
   'Reset the printer to the desired one
  ' Dim NewPtr As Printer
  ' For Each NewPtr In Printers
  '    List1.AddItem NewPtr.DeviceName
  '    If NewPtr.DeviceName = "\\BEVERLY\HP" Then
  '       Set Printer = NewPtr
  '    End If
  ' Next
   
   'Add the patient's number as a barcode
'   If Loc_PatNum <> "" Then
'      BarCode39Ctrl1.BarHeight = 600
'      BarCode39Ctrl1.StartX = 500
'      BarCode39Ctrl1.StartY = 0
'      BarCode39Ctrl1.BarString = Loc_PatNum
'      BarCode39Ctrl1.PrintBarCode
'   Else
'      Printer.Line (500, PatTop)-Step(3800, 600), , B
'      Printer.CurrentX = 1500
'      Printer.CurrentY = 200
'      Printer.Print "Barcode Printed Here"
'   End If

   Printer.EndDoc

End Sub

'Client properties start here
Property Let RegionCode(ByVal RC As String)
   LocRegionCode = RC
End Property


Property Let DistrictCode(ByVal DC As String)
   LocDistrictCode = DC
End Property

Property Let SiteCode(ByVal SC As String)
   LocSiteCode = SC
End Property

Property Let VisitDate(ByVal VD As String)
   LocVisitDate = VD
End Property

Property Let ReturnVisit(ByVal RV As String)
   LocReturnVisit = RV
End Property

Property Let ClientCode(ByVal CC As String)
   LocClientCode = CC
End Property

Property Let NewClientCode(ByVal NCC As String)
   LocNewClientCode = NCC
End Property

Property Let SessionType(ByVal ST As String)
   LocSessionType = ST
End Property

Property Let CoupleCode(ByVal CC As String)
   LocCoupleCode = CC
End Property

Property Let PartnerCode(ByVal PC As String)
   LocPartnerCode = PC
End Property

Property Let ClientSex(ByVal CS As String)
   LocClientSex = CS
End Property

Private Sub UserControl_Initialize()

   'Initialize the Client Details
   LocRegionCode = ""
   LocDistrictCode = ""
   LocSiteCode = ""
   LocVisitDate = ""
   LocReturnVisit = ""
   LocClientCode = ""
   LocNewClientCode = ""
   LocSessionType = ""
   LocCoupleCode = ""
   LocPartnerCode = ""
   LocClientSex = ""
   
End Sub
